<%
set rsNav = Server.CreateObject("ADODB.Recordset")
rsNav.ActiveConnection = MM_directory_STRING
rsNav.Source = "SELECT *,(SELECT COUNT (*) FROM LINKS,priority,pricing WHERE LINKS.CAT_ID = CATS.CAT_ID AND LINK_APPROVED=1 AND paymentAmount = id and PID = priorityid AND LINK_EXPIRED >= GETDATE()) AS LINK_COUNT FROM CATS ORDER BY CAT_NAME ASC"
rsNav.CursorType = 0
rsNav.CursorLocation = 2
rsNav.LockType = 3
rsNav.Open()
rsNav_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsNav_numRows = rsNav_numRows + Repeat1__numRows
%>
|
Categories: |
 |
|
|
<% While ((Repeat1__numRows <> 0) AND (NOT rsNav.EOF))%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsNav.MoveNext()
Wend
%>
|
|
|
Top
Cities: |
 |
|
|
<% While ((Repeat1__numRows <> 0) AND (NOT rsNav.EOF))%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsNav.MoveNext()
Wend
%>
|
|
|
|
|
|
| <%
rsNav.Close()
Set rsNav = Nothing
%>
| Home
»
Business
Webpage |
|
| |
|
<%
While ((Repeat8__numRows <> 0) AND (NOT SmallBanner.EOF))
%>
| |
 |
<%
Repeat8__index=Repeat8__index+1
Repeat8__numRows=Repeat8__numRows-1
SmallBanner.MoveNext()
Wend
%>
|
|
|
|
|
| |
<%
While ((Repeat8__numRows <> 0) AND (NOT SmallBanner.EOF))
%>
|
<%
Repeat8__index=Repeat8__index+1
Repeat8__numRows=Repeat8__numRows-1
SmallBanner.MoveNext()
Wend
%>
|
|
|
|
|
| <% If Not rsAds.EOF Or Not rsAds.BOF Then %>
|
| |
The design and
illustration of the VIP Cards
represented on this Web site are being
used as
presentation to the prospective company;
no endorsement and/or agreement has been
made.
All logos and trademarks contained
within these design ideas are property
of their respective owners.
|
|
|
|
|
<%
rsUser.Close()
Set rsUser = Nothing
%>
<%
rsKeywords.Close()
Set rsKeywords = Nothing
%>
<%
SmallBanner.Close()
Set SmallBanner = Nothing
%>
<%
rsRatings.Close()
Set rsRatings = Nothing
%><%
rsBody.Close()
Set rsBody = Nothing
%><%
rsAds.Close()
Set rsAds = Nothing
%> |
Quick
Search:
Log In
<%else%>
Get Directions
Add to Quick List
Enlarge Photo
<%End If%>
